home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 22
/
Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso
/
Aminet
/
biz
/
dbase
/
db.lha
/
Examples
/
ARexxDemos
/
calc.db
next >
Wrap
Text File
|
1995-11-22
|
210b
|
9 lines
/* calc expression in given gadget
Written by: Richard Ludwig */
options results;GETFIELD
if verify(result, '0123456789+-*/().','m') then do
interpret 'ret=' result
currentfield 'result'
PUTFIELD ret
end